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Section 1 
Introduction 


The GCOS 6 Mod 400 operating system for the Level 6 minicomputers provides a 
comprehensive set of system services which form a base for executing user-written applications, 
Honeywell-supplied applications, and program development tools. It provides an online, interrupt- 
driven operation for multiple users and a single, low-priority batch operation typically used for 
program development and associated activities. 

A number of different operating environments are possible, controlled in part by options 
exercised at system configuration, and in part by options chosen by the system operator at 
startup or at various times during the operating day. These environments are more fully 
described in Section 2, "Operating Environments.” 


Access to the system by users can be achieved in a variety of ways, again depending in part on 
system configuration options selected. These options are concerned mainly with the definition of 
local and/or remote terminal devices and how they are connected to the system. These are 
described in Section 3, "User Terminal Startup.” Other access options, normally under the 
control of the system operator, are concerned with the procedures by which a user identifies 
himself (logs in) to the system through a connected terminal. This subject is treated in Section 4, 
"User Access to the System.” 


The remaining sections comprise descriptions and examples of the use of various system 
components: the Editor (Section 5), the Assembler and Macro Preprocessor (Section 6), the 
COBOL Compiler (Section 7), the FORTRAN Compiler (Section 8), and the Sort component 
(Section 9). Each of these sections presents terminal and/or line printer listings representing the 
actions performed. In these listings, heading lines may vary in detail depending on the 
component that initiated the listing or, in some cases, may be omitted. However, in actual use, 
the user will see heading lines consisting of three major fields of information, as shown below. 

1. System Identification: GCOS6 MOD400- j ® j rrr-mm/dd/hhmm 


S 

L 


rrr 

mm/dd/hhmm 


— SAF 

— LAF 

— Release number of the operating system 

— Date/time when operating system was created (month, day, 
hour, and minute) 


2. Component Identification: xxxxx-rrrr-mm/dd/hhmm 

xxxxx — Component name 
rrrr — Revision number of component 
mm/dd/hhmm — Date/time that specified revision of component was created 
(month, day, hour, and minute) 

3. Time of program execution: yyyy/mm/dd hhmm:ss.t 

Date/time of program execution (year, month, day, hour, minute, second, and tenth of 
second) 


GUIDE TO USING THE MANUAL SET 

A guide to the use of the manual set is provided below. Information is tailored for specific 
classes of users — applications programmers, systems programmers, and operators. (As used in 
this guide, the applications programmer writes applications programs; the system programmer 
configures the system and defines the environment for each application; the operator operates 
the system from the operator terminal.) Included as a separate subsection is a guide for those 
who will use the Level 6 in a distributed processing environment. 
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APPLICATIONS PROGRAMMER S MANUAL GUIDE 


Figure 1-1 illustrates the suggested sequence in using the manuals. If you wish to start using 
the system by writing an application program, begin by using the Programmer's Guide manual. 
It illustrates: (1) various ways to gain access to the system, (2) a sample Editor session, and (3) 
for application languages, the procedure for performing program preparation and execution. 
Working with the small subset of commands used in the examples is a good approach to learning 
the system command set. This approach for getting started assumes that a system programmer 
has already configured and started up a suitable application environment. While using the 
system, you may wish to familiarize yourself with the system facilities described in the System 
Concepts manual. 

Through examples, the Programmer’s Guide illustrates how to use the system facilities. 
Other manuals provide reference material. The Program Preparation manual contains Editor 
directives (statements) to create and update an application language source unit. For each of the 
languages the appropriate language reference manuals contain the description of the language 
statements. Operating system dependencies, if any, that affect how you write the application 
are described in the Programmer’s Guide. If the application uses communications, refer to the 
Communications Processing manual. Read the Data File Organizations and Formats manual if 
you require a better understanding of a language-supported file organization that is to be used 
in an application, or if you must calculate the size of a data file. You can use Monitor macro calls, 
as described in the System Service Macro Calls manual, in assembly language programs. Before 
your program can be entered for execution, it must be linked as described in the Program 
Execution and Checkout manual. 

For program compilation or assembly and execution, the procedures described in the 
Programmer’s Guide might be sufficient. To obtain more control over the execution of your 
program or utilize the system facilities more completely or efficiently, use the commands 
described in the Commands manual. If you wish to use the operator terminal, read the 
Operator’s Guide. In many cases, the description of commands must be supplemented by system 
concepts described in the System Concepts manual. Rather than read all the conceptual material 
at one time, you may find it more meaningful to refer to it in conjunction with the appropriate 
reference material. The Commands manual also describes the utilities. An assembly language 
program, the Patch, Debug, and Dump utilities are described in the Program Execution and 
Checkout manual; file transmission from Level 6 to a host system is described in the File 
Transmission manual appropriate to the host system. Error messages and return status codes 
are listed in the System Messages manual. 

SYSTEM PROGRAMMER’S MANUAL GUIDE 

Figure 1-2 illustrates the suggested sequence for using the manuals. The System Building 
manual provides you with the configuration directives (statements) and startup procedures to 
configure and start up a MOD 400, a Remote Batch Facility (RBF), or a Data Entry Facility 
(DEF) system. You must know the conceptual material in the System Concepts manual in order 
to successfully use the configuration directives. To tailor an applications environment suitable 
for the intended application, use the operator commands described in the Operator’s Guide 
manual. Error messages are listed in the System Messages manual. If you are working with an 
application that runs under the BES operating system, the System Concepts manual contains 
MOD 400 and BES compatibility considerations. 

OPERATOR’S MANUAL GUIDE 

Figure 1-3 illustrates the suggested sequence for using the manuals. Specific operator job 
functions must be determined by each installation; a large system might have a person assigned 
as an operator; a small system might have each programmer also act as an operator. The 
Operator's Guide indicates the system procedures performed through the operator terminal and 
describes operator commands used in system operation. 

The Programmer’s Guide contains examples using commands (described in the Commands 
manual) that are similar to operator commands. The System Concepts manual provides an 
understanding of the operating system. Note that the Operator’s Guide describes using the 
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operator terminal for operator functions to enter operator commands to the system task group, 
or for user functions to enter commands to a user task group. To run the utilities, use the 
commands (described in the Commands manual) entered through the operator terminal func¬ 
tioning as a user terminal. Error messages are listed in the System Messages manual. 

GUIDE FOR USING THE MANUALS IN A DISTRIBUTED PROCESSING ENVIRONMENT 

GCOS 6 Mod 400 supports the use of Level 6 in a distributed processing environment. Using 
Honeywell-supplied software packages, processing capabililty can be assigned to sites remote to 
the host computer system. With the functional links provided by Honeywell, a Level 6 can be 
configured as a host processor and specialized processing (i.e., forms data entry) assigned to 
remote terminals. Also, the user can develop links with non-Level 6 host processors and 
distribute the total processing load between the host and Level 6. 

The software packages available to the user include the Data Entry Facility, Remote Batch 
Facility, Terminal Concentration Facility, File Transmission Facility, Host Resident Facility 
(Level 66), and IBM workstation emulation software. Figure 1-4 indicates the documentation 
available for the operation and use of such software. Configuration information, if applicable, is 
contained in the System Building manual. 


REMOTE DATA 

BATCH ENTRY FILE 

FACILITY FACILITY TRANSMISSION 



GUIDE 


LEVEL 66 

HOST IBM 


TERMINAL RESIDENT WORKSTATION 

CONCENTRATION FACILITY EMULATION 

USER USER USER 




Figure 1-4. Guide for Using the Manuals in a Distributed Processing Environment 
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Section 2 
Operating Environments 


The Mod 400 operating system allows a wide variety of operating environments, ranging from 
a single operator-controlled configuration to one in which the operator, other users, or a 
combination if both can control the configuration at any time during the operating day. This 
range of operating environments is described in this section. 

OPERATOR-ONLY ENVIRONMENT 

This environment is one in which a designated operator and a limited number of users 
(typically programmers developing application programs) use the system on a first-come first- 
served basis for developing and testing programs. All work is done through the operator 
terminal, through either the system task group or a single online task group created by the 
system startup procedure. Certain functions can be performed through either of the two task 
groups; others can be done only through the system task group or the online task group — refer 
to the Operator's Guide and the Commands manuals for details on which functions can be 
performed from each task group. 

ALL-ONLINE ENVIRONMENT 

An all-online environment is one in which one or more users can concurrently use the 
facilities of the operating system to perform interactive tasks of any kind permitted by the 
command language described in the Commands manual, plus any user applications that can be 
invoked through the command processor. This latter category consists of user programs in the 
form of bound units that are called from a task group in which the command processor is 
declared as the lead task when the task group is created. A task group can also be created by the 
operator or another online user, declaring the application bound unit as the lead task; in this 
case the creation of the task group and its activation results directly in the execution of the 
declared bound unit, without the need to enter its name as a command. 

An example of this kind of environment is one in which several task groups have the command 
processor as lead task and one or more other task groups have specific application programs such 
as the Data Entry Facility and user-created programs as lead tasks. The former task groups can 
be used for editing source program files, entering requests for jobs to be run in the batch task 
group (see below), requesting printouts of files, etc. Concurrent with these activities can be the 
execution of the user application programs constituting the latter set of task groups. From the 
user's point of view, each task group has the appearance of having control of the system. 

ONLINE/BATCH ENVIRONMENT 

This environment differs from the all-online environment only in that, in addition to the 
creation of the online task groups, a batch task group has also been created by the designated 
operator from the operator terminal. Once this task group has been created, any online task 
group having the command processor as its lead task can enter requests for jobs to be run 
through the use of the EBR (ENTER BATCH REQUEST) command. Typical of such batch jobs 
would be requests for compilations, links, application program checkout runs, and the like. 

Creation and utilization of the batch task group requires the existence of at least the 
designated operator terminal, through which the batch task group is created and through which 
requests to it can be entered. Jobs run in the batch task group are normally controlled by a 
previously created file containing commands directing the execution of the jobs, and not by 
interactive dialog from a terminal. Section 4 contains additional information on the use of the 
batch task group. 
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DEDICATED APPLICATION ENVIRONMENT 

This is an environment in which system startup or operator action subsequent to startup 
results in the creation of one or more task groups in which a user application, and not the 
command processor, is the lead task. In such an environment no interactive processing using 
system commands takes place; rather, whatever processing occurs is dependent on the nature of 
the application — e.g., data entry, an inventory application, etc. 

MIXED ENVIRONMENT 

The Mod 400 system does not restrict the user to any one of the foregoing environments at any 
given time. Given a large enough system, any of these can be combined with any others to 
provide concurrent interactive, batch, and dedicated operations on a selected terminal basis. 
That is, a selected set of terminals can be associated with interactive tasks, while others can be 
related to the dedicated application tasks. 


OPERATING ENVIRONMENTS 


2-2 


6/78 

CB22A 



Section 5 

Using the Editor 


Before studying this section, you should have a knowledge of the Editor operation. The Editor 
is described in the Program Preparation manual. 

This section shows how the Editor is used to modify the contents of files, merge files and place 
macro routines in the macro library directory. The four files to be altered are SMPM01 (Example 1), 
SMPM02 (Example 2), SMPM03 (Example 3), and SMPM04 (Example 4). The directives that 
control the Editor are contained in a file A SYSMAC>SMPCMDIFL, Figure 5-1. This file 
comprises 56 lines, some of which include multiple directives. 

This session of the Editor accomplishes the following functions: 

• SMPM01 and SMPM02 are altered and written to files SMMPL1 and SMMPL2. 

• SMMPL1 and SMMPL2 are combined to form file SMPMAC.P containing macro 
statements and calls to be processed by the macro preprocessor. 

• SMPM03 and SMPM04 are altered and written as files SMMPL3 and SMMPL4 
respectively. 

• SMMPL3 and SMMPL4 are altered and written as macro library routine files SAMPL1 
and SAMPL2, respectively, into the MACRO>EXEC_LIB directory. 


Example 1: 

File SMPM01 before Editing 


1 TITLE S M P m A C * *3/1/77 1 2 3 * 5 6 7 8 9 ED ITOP/mAC^U EXAMPLE 

2 * H'JSEPT LN £ LIriN S 7 A T E M fa T BEFORE ThIS U' •. THF N OF.L THIS L* 

3 SMPLM MAC Pl = 0,P2 = c , ,P3=' SAMPLE 1 , P As » PR( GP Am * , P5sZ£P0, P6 = ( ; 

a P7 = ) , P8 = TA0, P9 =SCOmm, PA = A , Prist*, PC=T2, Pt)sSAMPLE , PEsPPOGS 

5 * SET LUCAL VALUES wITHIfa MACRO ROUTINE * 

6 LE USE CHANGE FUMCTIuiv 70 ADD SETA VALUE FOP THIS LN 

7 La USE CHANGE FUNCTION Tu ADD SETA VALUE FOP THIS LN 

8 Lb USE CHANGE FUNCTION TO ADD SETA VALUE FOP THIS LN 

9 LH USE CHANGE FUNCTION TO ADD SETA VALUE FOP THIS LN 


10 

★ ADD 

L 7 SETA Vi 

* L U E ^ / C h A 

NGE FunCTIOn 

.. THtfa DELT 

THIS 

11 

L8 

SETA 

XL DC 




12 

L9 

SETA 

XV AL 




13 

LA 

SETA 

CZ * 01 

f ] 



la 

L8 

SETA 

COMM 




lb 

LZ 

SETA 

1 




16 

♦ USED 

EDIT HEAD 

FUNCT TO 

ADD "SMPMOf?” 

POPTIOiv TO 

FILE* 
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Example 2: 

File SMPM02 before Editing 


l * 


2 

★ T H f:. S t 

uiMPWOTEC TED 

COMMfcM LINES MLL r'fe DROPPED 

3 

* *HEn MACRO PKEPkOCfcSSED. 

a 

5 

★ 

7b 4 

*L4 

?r,l CGI Initial VALUCSS) 

6 


*Lb 

?IX(»Lfc',VPE)?GC?PJ 

7 

?Ub 

*16 

?P3?VL(3b)?P4ALZ*LA 

8 


* L 7 

? G 4 

9 


«L7 

? P 6 ? P 8 ? G H ? A L C ? P C ) ? P 7 

10 


»L8 

?SS(?P4;7» l) 

1 1 


*L9 

?VP(11) 

12 

7 G 6 

*L8 

?G 7 

1 3 

?G A 

*L4 

?P9+?G3 

14 

lb 

G3 

E nOM 

St T N 

1 

16 

G4 

SE T A 

»?EPn» (APHSTkuHHE*S 0 POPPED WHEN SUBSTI 

17 

G5 

SETA 

•NAME 1 

18 

G6 

bt T A 

» SCOMM• 

19 

G 7 

SET »m 

100 

2 o 

GA 

SETA 

'COM ' 

21 

G6 

SETA 

» ! 

22 

23 

★ 

★ ★ ★ * THE 

FULLOSING 

POP T ION OF CODE IS ADDED FROM "SmPLm" **★* 

24 

25 

* 

ShPLM, 

(CALL IN-LINE MACRO ROUTINE) 

26 

27 

★ 

★ * * ★ TH E 

FOLLOWING 

PORTION OF CODE IS A f) f) 10 FkijN. " S A M P L 1 " ★ 

28 

29 

★ 

CALL1 

SAhPLl 


30 

, # S T A PT r 

SC 


31 

32 

★ 

***★ THE 

F ULLOn IfvG 

PORTION OF COuE IS ADDED F'PQM "SAMPLP" **** 

33 

34 

★ 

CALL2 

SAwiPL2 


35 



MMM LINK 

36 


END 

SMPMAC# START 
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Example 3: 

File SMPM03 before Editing 


1 

SAMPll 

MAC 

Pl=0,P2=2,P3=’SAMPLE*,P4s'PROG*A m»,P5=ZER0,P6=( 

2 

P8*T*0 

,P9=$C0MM,PA= 

A,P8 = B,PD=SAMPLE,PEsPPOGRAM 

3 

* 



4 

★ 



5 

★ SET 

LOCAL VALUES 

•aITHIN macro ROUTINE A 

6 

★ 



7 

* 



8 

L4 

SETB 

ORG 

9 

L5 

SETS 

DC 

10 

L6 

SETH 

LDR 

11 

L7 

SETH 

STR 

12 

L8 

SETH 

CALL 

13 

L9 

SETB 

IB 

14 

LA 

SETB 

BBT 

15 

LB 

SETH 

SLO 

16 

LC 

SETh 

i - i 

17 

LD 

SETB 

CZ f 32'] 

18 

LE 

SETB 

1 PR0G2 . ST ART 2 1,1 ivAMfc ' 

19 

★ 



20 

★ 



21 

* SET 

GLOBAL VALUES 

WITHIN MACRO ROUTINE * 

22 

★ 



23 

A 



24 

GH 

SETA 

»QRG INTO COMMON' 

25 

GG 

seta 

'ORG INTO INTERNAL LUC' 

26 

GC 

SETA 

'EXTERN VAL REFERENCE* 

27 

GD 

SETA 

'COMMON REFERENCE' 

28 

GE 

SETA 

'EXTERNAL LOCATION REFERENCE' 

29 

GF 

SETA 

'FORWARDS TEMP LAhEL REFERENCE' 

30 

A 



31 

* UNPROTECTED LINES 

OMITTED 'AHEN PRE-PROCESSED 

32 

A 



33 


? L 4 

?P9 ?GH 

34 


?L5 

?VR(?P3, ?PD)?GB?SR(?P4,?Pb) 

35 


?L4 

?G4?P7?P8 ?GG 

36 

?PC 

?L6 

$ri,?lc?pb ?gc 

37 


?L7 

SRI> <?G A ?GU 

38 

[*) 



39 

?PD 

?L6 

$R1,<?PA ?GE 

40 

[*) 



41 


?L8 

PRUG2 • ?SS (VLt # 7 , 6) ?6 HaiAmE 

42 


?L9 

?G4?P7?P1?GB?LC?VL(13) 

43 


?L A 

>?P7$F ?GF 

44 


?LB 

SS1?GB?LCZ'?CH(l f -g)?CH(2»-2)?CH(3 *-2)?CH(u,-2) 

45 

ENDCL 1 

ENDM 
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Example 4: 

File SMPM04 before Editing 

1 sample MAC Pl=0,P? = 2,P3='SAMPLE *,Pa= »pkQGkAM »,P5 = ZER0,P6=(,P7 = ) 

2 PSsTrtUfP9=SC0MM,PA = A , PB = B 

3 * SET LOCAL VALLES p I T H 11>| MAC*U KOUTIUE * 


a 

L 4 

SETA 


>= [ Z 1 1300*3 

5 

LA 

SETA 


I OLD 

6 

LD 

seta 


8k 1 

7 

LE 

SETA 


* P P 0 G 2•S T A k T L , J nAMfc ' 

8 

LG 

SETA 


SOk 

9 

LC 

SE T iM 


-32768 

10 

OELTS 

DC 1 

'DELETE LI »m E fcivDI^G I <v S'S 

1 1 

LP 

StTfv 


32767 

12 

LQ 

S t T I’m 


0 

13 

LI 

SETA 


HEZ 

14 

L Y 

SETA 


HLT 

15 

L Z 

SETA 


' » ’ 

16 

* SET 

GLOBAL VALUES 

A I 7 H I i j iv* A CKO k <J11T I i 'j fc * 

17 

G 7 

SE TNi 


-32766 

18 

G2 

SETA 


1 6 A C K vv A k f; S TEMP L A « E E k t E E 

19 

G 5 

SETA 


CTwL 

2 0) 

★ 




21 

♦ UMPkuTtCTED 1 

IimES 

OMITTED mhE.l PkE-PkuCEZSSEu 

22 

* 




23 

?Pl 

?L A 


?P5?LZ?L4,=?L0 

24 

?P1 

?L A 


?P5?LZ?L4,=?tO 

25 


'LG 


? L D r ? V G C 3) 

26 


ILL 


?I.O,-SC ?G2 

27 


?L Y 



28 


?G5 


?PZ ?SS(?Lt,1 9 5) 

29 

*0tL 

DC 

•delete l I Tv f ; .r, El'; III.Mi 'I (; l-v * ' 

30 


IE w E 


?G7 ,?LP,GTfcr> P 

31 


fail 



32 

G TE Nil) 

GOTO 


END IT 

33 

OLET 

DC 1 

1 DELETE LINE hEFUkt QUIT' 

34 

E M) C L 2 

E iV 0 Ni 
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I 

i 


1 R *SYSMAC>SMPM01 


2 

X 



3 

6 7 9CLE 

SETA 

’ PR0G2.START2C73NAME’ 

4 

L4 

SETA 

EGU 

5 

L5 

SE TA 

RESV 

6 

L6 

SETA 

TEXT 

7 

L7 

SETA 

XDEF 

8 

1 F 



9 

21 

L1BM 

’EXEC-LIB’ 7 S A M F' L 1 7 SAMPL2 ! F 


10 

= .-1 ;$ K ( S M M P L 1 ) 


1 1 

X 


12 

1 7 $DX 


13 

R SMPM02 


14 

1r13V!P/#L/.-12f1 

3G!P/#L/.~9r 1 3S* #L'?L’P- 

15 

1 7 $M(SMMP L2)X 


16 

R SMPM03 


17 

8 ? 17S/SETB/SETA/8 

7 17P 

18 

1y $M(SMMPL3)X 


19 

R * S Y S M A C > S M P M 0 4 


20 

X29A IFE 

?G7 r ?LC 7 IF E1 

21 

FAIL 


22 

ENDIT IFNL 

? P 2 7 ? L C 7 * 

23 

IFE1 NULLJF 



? 


24 /SS. .LE/!p/$$/'PD/**/* PD 


25 1» $K(£MMP L4 ) 


26 Xir$D 

27 B(SMMPLI) 

28 W *SYSMAC>SMMPL1.IN.A 

29 1r $DX 

3D B(SMMPL2) 

31 W ASYSMAOSMMPL2. IN. A 


32 1,»D 

33 B(SMMPL3) 

34 W *SYSMAC>SMMPL3 


35 1r$D 
26 B(SMMPL4 ) 

37 W *SYSMAC >SMMPL4 


38 i » $D X 

39 R SMMPLi.IN.A 

40 /INSERT/!PD/ADD L7/IPD 

41 15R SMMPL2.IN.A 

42 X52!PD 

43 E F0 >5PD>LPT00 

44 1 , $ ! PW SMPMAC . P 

45 1> $D 

46 R SMMPL3 

47 X/L4/?/LE/S/SETS/SETA/ 

48 1 , $ ! PW *SYSRES>LDD>MACR0>EXEC-LIB>SAMPL1 

49 1» $D 

50 R SMMPL4 

51 /DLET/D 

52 Q 

53 1 r $ ! PW *SYSRES>LBD>MACRC»EXEC-LIB>SAMPL2 

54 X 

55 E FO 

56 G 


Figure 5-1. Sample Editor Directives in File SMPCMDIFL 
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OPERATOR TERMINAL TYPEOUT 


The typeout produced at the operator’s terminal during the editing process is shown in Figure 5-2. 
In this figure, the editor directive line that produced each line of the typeout is indicated by the 
circled numbers at the left of the typeout lines. Note that not every directive generates a 
typeout; e.g., the R (read) and W (write) directives. The lines of typeout that are produced in the 
editing of each of the four input files are indicated by brackets in the left margin. 

In the typeout, the response to the Editor directives begins after the line ($H)EDIT-0100- 
11/21/0827. 


WO GROUPSD 
(SD)ON-LINE debug 
C tSHs 
RDN 

(SH)RDY* 

CWD “SYSMAC 

(SH)RDYl 

U*D 

(SH)~SYSMAC 

(SH)RDYt 

ED -LINE.LN 75 -IN 


1976/11/20 


SYSREV. 


(SH)EDIT-0100-11/21/0827 


•SYSMAOSMPCMDFL 


SMPM02 


SMPM03 


(SH) 16 -> 

(SH)EDIT MODE 
(SH) 2 

(SH) 18 -> 

(SH) 18 

“(SH) 0 -> 

(SH) 18 

"(SH) 1 * 

(SH) 2 * 1 

(SH) 3 * \ 

(SH) 4 * 

'(SH) 5 ?G< 

(SH) 6 

(SH) 7 ?GS 

(SH) 8 

(SH) 9 

(SH) 10 

(SH) 1 1 

(SH) 12 ?G( 

_(SH) 13 ?G* 

"(SH) 

JCSH) 14 

“(SH) 0 -> 

(SH) 18 

_(SH) 36 

(SH)L4 
(SH)L5 
(SH)L6 
(SH)L7 
_(SH)L8 
"“(SH) L9 
(SH) LA 
(SH)LB 
(SH) LC 
_(SH) LD 
"“(SH) 9 -> 

(SH) 18 

(SH) 36 

(SH) 45 


SYSMAC>SMPM01 


18 

-> MOD 

(0) “SYSMAOSMPMQ1 

1 8 


(SMMPL1) 


0 

-> 

<0> *SYSMAC>SMPMO1 

18 


(SMMPL1) 


1 

* 



2 

* THESE 

UNPROTECTED 

COMMENT LINES WILL BE 

3 

* WHEN 

MACRO PREPROCESSED. 

4 

* 



5 

?G4 

#L4 

?G1 (G1 INITIAL 

6 


#L5 

?IX(#LE*?PE)?GB?P1 

7 

?G5 

#L6 

?P3?VL(35)?P4#LZ#LA 

8 


#L7 

7G4 

9 


#L7 

?P6?P8?GB?AL(?PC)?P7 

10 


#L8 

?SS(?P4>7^1) 

1 1 


#L9 

?VP(U ) 

12 

?G6 

#LB 

?G7 

13 

?GA 

#L4 

7P9+7G3 


ENDM 



14 




0 

-> 

(0) “SYSMAOSMPM02 

18 


(SMMPL1) 


36 


(SMMPL2) 



> C Z *32 9 3 

(0) *SYSMAC>SMPM03 
(SMMPL1> 

CSMMPL2) 

(SMMPL3) 
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~(SH) 

34 

-> (0) *SYSMAC>SMPM04 

20— 

(SH) 

18 

(SMMPL1) 

(SH) 

36 

(SMMPL2) 


(SH) 

45 

(SMMPL3) 



28 

?G5 ?PZ 7SSC7LE-.I.5) 

24- 

<$H> 

10 

DELTS DC 'DELETE LINE ENDING IN $ '$ 


(SH) 

28 

'DEL DC 'DELETE LINE BEGINNING IN '* 


r <sh) 

36 

-> MOD <0> 'SYSMAC>SMPMO4 


(SH) 

18 

(SMMPL1) 

26— 

(SH) 

36 

(SMMPL2) 


(SH) 

45 

(SMMPL3) 


(SH) 

36 

(SMMPL4) 


[“(SH) 

0 

(0) ~SYSMAC>SMPMO 4 


(SH) 

0 

-> (SMMPL1) “SYSMAC> SMMPL1 

29-i 

(SH) 

36 

(SMMPL2) 


(SH) 

45 

(SMMPL3) 


(SH) 

36 

(SMMPL4) 


[“(SH) 

0 

(0) “SYSMAC>SMPM0 4 


(SH) 

0 

<SMMPL1> “SYSMAC>SMMPLl 

38 — 

(SH) 

0 

(SMMPL2) **SYSMAC>SMMPL2 


(SH) 

0 

(SMMPL3) * SYSMAC> SMMPL3 


JCSH) 

0 

-> (SMMPL4) ~SYSMAC>SMMPL4 

40— 

(SH) 

3 

* INSERT LN 2 LIBM STATEMNT BEFORE THIS LN••THEN DEL THIS LN 

(SH) 

1 1 

* ADD L7 SETA VALUE V/CHANGE FUNCTION .. THEN DELT THIS LN 


HCSH) 

0 

(0) * SYSMAC> SMPMO 4 


(SH) 

0 

(SMMPLl) *SYSMAC>SMMPL1 

42 — 

(SH) 

0 

(SMMPL2) “SYSMAC> SMMPL2 

(SH) 

0 

(SMMPL3) * SYSMAC> SMMPL3 


(SH) 

52 

-> MOD (SMMPL4) ~SYSMAC>SMMPL2 


JCSH) 

52 

♦USED EDIT READ FUNCT TO ADD *SMPMO2* PORTION TO FILE* 


“(SH) 

0 

(0) “SYSMAOSMPMQ4 


(SH) 

0 

(SMMPL1) * SYSMAC>SMMPL1 

47— 

(SH) 

0 

(SMMPL2) *SYSMAC>SMMPL2 


(SH) 

0 

(SMMPL3) "SYSMAOSMMPL3 


_(SH) 

45 

-> (SMMPL4) ** SYSMAC>SMMPL3 


(SH)MODIFIED BUFFERS EXIST* QUIT DEFERRED 


[“(SH) 

0 

(0) “SYSMAC>SMPM04 


(SH) 

0 

(SMMPL1) * SYSMAC> SMMPL1 

54 ’ 

(SH) 

0 

(SMMPL2) *SYSMAC>SMMPL2 

(SH) 

0 

(SMMPL3) *SYSMAC>SMMPL3 


(SH) 35 

(SH)RDY t 

-> (SMMPL4) "Z00B02>LDD>MACRO>EXEC_LIB»SAMPL2 


Figure 5-2 (cont). Terminal Responses from Sample Editor Directives of Figure 5-1 


EXPLANATION OF EDITOR ACTIONS 

Table 5-1 describes the actions performed by the Editor as it processes the directive file. The 
entries under the heading Line No. designate lines in the directive file Figure 5-1. The entries 
under the heading Terminal Typeout are abbreviated versions of those in Figure 5-2. For lines 
with multiple directives, they show which directive caused the typeout. 

The assembly language program with unexpanded macro calls created from Example 1 and 
Example 2 is shown in Figure 5-3. The directive that caused it to be printed is contained in line 44. 

Figures 5-4 and 5-5 are the unexpanded macro routines created from Example 3 and Example 4 
respectively. The directives that caused them to be printed are included in lines 48 and 53 
respectively. 
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TABLE 5-1. EXPLANATION OF EDITOR ACTIONS 


Line 

No. Editor Directive Description 

1 R A SYSM AC > SMPMO1 

Read the 16-line file (example 1) into the current buffer (0). 

2 X 

Display the status of the current buffer (denoted by ->). Sixteen 
lines were read into current buffer (0). 

3 6,9Ctext 

Change lines 6 through 9 of the buffer with this text for line 6. 

4 Text for line 7. 

5 Text for line 8. 

6 Text for line 9. 

7 Text, this additional line is inserted after the previous four lines 

were changed. Note that the Editor recognizes tab characters. 

8 !F 

Terminate input mode and enter edit mode. 

9 2Itext!F!? 

Insert text before line 2. 

Terminate input mode. 

Display current mode. 

10 =.-l;$K(SMMPLl) 

Display current line pointer. 

Move the current line pointer back one line to a new current line 
pointer position. Copy the lines from that position to the last 
line in the current buffer into auxiliary buffer, SMMPL1. 

11 X 

Display status of current and auxiliary buffers. There are 18 
lines in current buffer (0), which has been modified (MOD) since 
it was read in, and 18 lines in auxiliary buffer SMMPL1. 

12 1,$DX 

Delete the first through last line of the current buffer (0). 
Display status of buffers. 

13 R SMPM02 

Read 36-line file (example 2) into the current buffer (0). 

14 l,13V!P/#L/.-12;13G!P/#L/.-9;.S’#L’?L’!P= 

For lines 1 through 13, display line numbers and all lines that 
do not contain the expression #L. 


Move the current line pointer back 12 lines from line 14 to line 2. 
For lines 2 through 13, display all lines and their line numbers 
containing the expression #L. 


Terminal 

Typeout 


16->(0) ... 


EDIT MODE 


2 


18-> MOD (0) ... 
18 (SMMPL1) 


0 ->( 0 ) ... 

18 (SMMPL1) 


1 * 

2*THESE ... 


5?G4#L4 ... 


13?GA #L4 ... 
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_ TABLE 5-1 (CONT). EXPLANATION OF EDITOR ACTIONS 

Line Terminal 

No. Editor Directive Description Typeout 

Move the current line pointer back nine lines to line 5 and 
substitute ?L for #L, in that line and the next 8 lines. Note that 
the apostrophe is used as a delimiter. 

Print current line. ENDM 

Print current line pointer value. 14 

15 1 ,$M(SMMPL2)X 

Move line 1 through the last line of the current buffer to 
auxiliary buffer SMMPL2. The contents of the current buffer (0) 
are erased. Display the status of the buffers. 0->(0) ... 

18 (SMMPL1) 
36CSMMPL2) 

16 R SMPM03 

Read 45-line file (example 3) into current buffer (0). 

17 8,17S/SETB/SETA/8,17P 

For lines 8 through 17, substitute SETA for SETB. 

Print lines 8 through 17 without line numbers. L4 SETA ... 


18 


19 

20 


LD SETA ... 

1 ,$M(SMMPL3)X 

Move line 1 through last line of the current buffer into auxiliary 
buffer SMMPL3 and erase buffer (0). 

Display buffer status. 0->(0) ... 

18 (SMMPL1) 
36 (SMMPL2) 
45 (SMMPL3) 

R A SYSMAC > SMPM04 

Read the 34-line file (example 4) into the current buffer (0). 

X29A 

Display buffer status, 34 lines are currently in buffer (0). 34->(0) ... 

18 (SMMPL1) 
36 (SMMPL2) 
45 (SMMPL3) 


After line 29, append four lines of text. Text for line 30. 

21 Text for line 31. 

22 Text for line 32. 

23 text!F 

Last line of text (line 33). 

Terminate input mode and enter edit mode. 

24 /SS..LE/!P/$$/!PD/ A A /!PD 

Search the current buffer for the first occurrence of the 
expression SS..LE, where .. are any two characters. 

List the line and its line number. 28?G5 ?PZ ?SS(?LE... 
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TABLE 5-1 (CONT). EXPLANATION OF EDITOR ACTIONS 
Line Terminal 

No. Editor Directive Description Typeout 

Locate a line that ends with $ as the last character. List the line 

and its number; then delete the line. 10DELT$ 

dc..;d...$ , $ 

Locate a line beginning with A . List, then delete the line and its 

line number. 28 A DEL DC 

'DELETE ... 

25 1,$K(SMMPL4) 

Copy the current buffer contents from first through last line into 
auxiliary buffer SMMPL4. 

26 XI,$D 

Display the status of the buffers. 


Delete first through last line of current buffer. 

27 B(SMMPLl) 

The auxiliary buffer, SMMPL1, is made the current buffer prior 
to writing. 

28 W A SYSMAC > SMMPL1 

Write the current buffer contents as a file whose pathname is 
A S Y SM AC > SMMPL 1. 

29 1,$DX 

Delete the first through last line of the current buffer. 
Display the buffer status. The pointer points to current buffer, 
SMMPL 1. 


30 B(SMMPL2) 

The auxiliary buffer, SMMPL2, is made the current buffer prior 
to writing. 

31 W A SYSMAOSMMPL2 

Write the current buffer contents as a file whose pathname is 
A SYSMAOSMMPL2. 

32 1,$D 

Delete the first through last line of the current buffer. 

33 B(SMMPL3) 

The auxiliary buffer, SMMPL3, is made the current buffer prior 
to writing. 


4 'N 


0 ( 0 ) ... 

0-XSMMPL1) 
36 (SMMPL2) 
45 (SMMPL3) 
36(SMMPL4) 


36->MOD(0) .. 
18 (SMMPL1) 
36 (SMMPL2) 
45 (SMMPL3) 
36 (SMMPL4) 
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TABLE 5-1 (CONT). EXPLANATION OF EDITOR ACTIONS 


Line 

No. Editor Directive Description 


34 W A S Y SM AC > SMMPL3 

Write the current buffer contents as a file whose pathname is 
A S Y SM AC > SMMPL3. 

35 1,$D 

Delete the first through last line of the current buffer. 

36 B(SMMPL4) 

The auxiliary buffer, SMMPL4, is made the current buffer prior 
to writing. 

37 W A S Y SM AC > SMMPL4. 

Write the current buffer contents as a file whose pathname is 
A S Y SM AC > SMMPL4. 

38 1,$DX 

Delete the first through last line of the current buffer. 
Display the status of the buffers. SMMPL4 is the current buffer. 
All the buffers have been cleared. 


39 R SMMPL1 

Read the file SMMPL1 into the current buffer, SMMPL4. 

40 /INSERT/!PD/ADD L7/!PD 

Locate the first line containing the expression, INSERT, list it 
and its line number, and then delete it. 

Starting at the current line, locate the first line containing the 
expression, ADD L7, list it and its line number, and then delete 
it. 

41 15R SMMPL2 

Read the file, SMMPL2, into the current buffer after line 15 of 
the buffer. Two files are being merged. 

42 X52IPD 

Display the status of the buffers. Current buffer, SMMPL4, now 
has 52 lines. 


List line 52 then delete it. 

43 E FO >SPD>LPT00 

The Execute directive allows you to execute the ECL command 
FO to change the output file from the operator’s terminal to the 
line printer. 


44 1,$!PW SMPMAC.P 

List the first through last line of current buffer on the line 
printer (Figure 5-3). Write the current buffer as a file whose 
pathname is SMPMAC.P. 


Terminal 

Typeout 


0 (0) ... 

0 (SMMPL1) .. 

0 (SMMPL2) .. 

0 (SMMPL3) .. 
0->(SMMPL4) . 


3* INSERT LN ... 
11* ADDL7SETA... 


0 ( 0 ) ... 


52->MOD(SMMPL4)... 
52 *USED EDIT ... 
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_ TABLE 5-1 (CONT). EXPLANATION OF EDITOR ACTIONS 

Line Terminal 

No. Editor Directive Description Typeout 


45 

46 

47 


48 


49 

50 

51 

52 


53 


54 


55 


56 


1,$D 

Delete the first through last line of the current buffer. 


R SMMPL3 

Read the file, SMMPL3, into the current buffer, SMMPL4. 
X/L4/;/LE/S/SETB/SETA/ 

Display the status of the buffers. 0 (0) ... 

0 (SMMPL1) ... 

0 (SMMPL2) ... 

0 (SMMPL3) ... 
45->(SMMPL4) ... 

Locate the first line containing the expression, L4. Starting 
with the line containing L4 through the line containing the 
expression LE, substitute SETA for all occurrences of SETB. 

1,$!PW A Z00B02>LDD>MACRO>EXEC_LIB>SAMPLl 
List the first through last line of the current buffer on the line 
printer (Figure 5-4). 

Write the current buffer as a library routine file whose path¬ 
name is A Z00B02>LDD>MACRO>EXEC_LIB>SAMPLl. 

1,$D 

Delete the first through last line of the current buffer. 

R SMMPL4 

Read the file, SMMPL4, into the current buffer. 

/DLET/D 

Locate and delete the line containing the expression DLET. 


Q 

Quit. The quit is deferred since a buffer has been modified and MODIFIED BUFFERS 
has not been written to a file. You have one more chance to write EXIST ... 
the contents of the current buffer as a file. 


1,$!PW A Z00B02>LDD>MACRO>EXEC_LIB>SAMPL2 
List the first through last line of the current buffer on the line 
printer (Figure 5-5). 

Write the current buffer contents as a library routine file whose 
pathname is A Z00B02>LDD>MACRO>EXEC_LIB>SAMPL2. 


X 

Display buffer status. Status is always displayed on the 0 (0) ... 
operator’s terminal even though the output file is the printer. 0 (SMMPL1) ... 

0 (SMMPL2) ... 
0 (SMMPL3) ... 
35-XSMMPL4) 


E FO 

The Execute directive allows you to execute the ECL command 
FO to change the output file from the line printer back to the 
operator's terminal. 

Q 

Quit. Exit from the Editor. 



,4 r " X 
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1 


TITLE 

SMPMAC, '3/1/77 ' ED ITOR/MAC«0 EXAMPLE 


2 


LIbM 

'EXEC“LIb',SAMPU1,SAMPL2 


3 

SMPLM 

MAC 

P1=0,P2=E,P3='SAMPLE',P«='PROGRAM', PS 

=ZER0,P6=(S 

a 

P7 = ),P8= 

Tw0,P9=SC0MM,PA=A,PB=b,PC=T2,PD=SAMPLE,PE=PR0G2 


5 

★ SET LOCAL VALUES 

WITHIN MACPO ROUTINE * 


6 

LE 

SETA 

' PROG2.STARTS t r ]NAME' 


7 

L 4 

SETA 

ECU 


6 

L5 

SETA 

RES V 


9 

L6 

SETA 

TEXT 


10 

L 7 

SETA 

XDEF 


1 l 

L6 

SETA 

XLOC 


12 

L9 

SETA 

X v al 


13 

LA 

St TA 

(7*01 1 ] 


1 4 

L6 

SETA 

COMM 


15 

L l 

SETA 

’ , ’ 


15 

k 




17 

★ THESE 

UNPROTECTED 

COMMENT LINES WILL HE DkOPPEL 


IB 

★ when MACkU PHERWUCESSED. 


19 

★ 




20 

?G4 

? L 4 

?G1 CGI INITIAL VALUE5*1 


21 


? L 5 

?IXC?LE.?PE)VGtf?Pl 


22 

?G5 

?L6 

?P3?VL(35)?P4?LZ?LA 


23 


? L 7 

? G 4 


2 a 


?L7 

?Pb?P8?Gb?AL C?PC)?P 7 


25 


?L8 

?SS(?PA,7,1) 


26 


?L9 

?VP(11) 


27 

?G6 

?Lb 

?G 7 


28 

?G A 

? l a 

?PR+?Gi 


29 


E N U M 



30 

G 3 

SETN 

1 


31 

G4 

SETA 

'ZERO 1 (APOSTROPHE«S DROPPED WHEN 

SUBSTI.) 

32 

G 5 

SETA 

» NAME ' 


33 

G 6 

SETA 

* $COMM» 


ia 

G7 

SETN 

100 


35 

GA 

St TA 

•C0M1 ' 


36 

Gb 

SETA 

1 r ’ 


3 7 

* 




38 

* ★ ★ * THE 

POLLOwING 

PORTION OF CODE IS ADDED EROM "SMPLM" 

★ ★ ★ * 

39 

* 




ao 


SMPLM, 

(CALL IN-LINE MACRO ROUTINE) 

ai 

★ 




a2 

■kit it It THE 

following 

PORTION OF CODE IS ADDED FROM "SAMPU" 

kkkk 

a3 

k 




aa 

CALL1 

SAMPL1 

lffrrrr+flbOrr 


a5 

, ,START, 

SC 



46 

k 




47 

kkkk THE 

FOLLOWING 

PORTIUN OF CODE IS ADDED FROM "SAMPL2" 

kkkk 

48 

* 




49 

CALL2 

SAMPL2 

» M » M f M 


50 



M M LI NK 


51 


END 

SMPMAC, START 



Figure 5-3. Sample of Unexpanded Assembly Language Program with Macro Calls 
and Statements (SMPMAC.P) 



( 
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1 

3AMPL1 

MAC 

P 1 = 0,P2=2,P3='SAMPLE', P4='PROGRAM',P5sZERO, Pfe=( , P7 = ); 

2 

P8«TW0 

9 P9*$C0MM , P A = 

A,PB=B,PO=SAMPLE,PE*P«OGRAM 

3 

* 



4 

* 



5 

* SET 

LOCAL VALUES 

WITHIN MACRO ROUTINE * 

6 

* 



7 

* 



8 

14 

SETA 

ORG 

9 

L5 

SETA 

DC 

10 

L6 

SETA 

LDR 

11 

L7 

SETA 

STR 

12 

18 

SETA 

CALL 

13 

L9 

SETA 

LB 

14 

LA 

SETA 

BBT 

15 

L8 

SETA 

SLD 

16 

LC 

SETA 

1 s t 

17 

LD 

SETA 

IZ'32'1 

18 

IE 

SETA 

'PR0G2.STARTS£,]NAME' 

19 

* 



20 

* 



21 

* SET 

GLOBAL VALUES 

WITHIN MACRO ROUTINE * 

22 

★ 



23 

★ 



24 

GH 

SETA 

'ORG INTO COMMON' 

25 

GG 

SETA 

'ORG INTO INTERNAL LOC' 

26 

GC 

SETA 

'EXTERN VAL REFERENCE' 

27 

GO 

SETA 

'COMMON REFERENCE' 

28 

GE 

SETA 

'EXTERNAL LOCATION REFERENCE' 

29 

GF 

SETA 

'FORWARDS TEMP LAdEL REFERENCE' 

30 

★ 



31 

* UNPROTECTED LINES 

OMITTED nHEN PRE-PROCESSED 

32 

* 



33 


?L4 

?P9 ?GH 

34 


?L5 

?VR(?P3.?PD)?GB?SR(?P«,?PE) 

35 


?L« 

?G4?P7?PB ?GG 

tb 

?PC 

?L6 

SR1,?LC?PB ?GC 

37 


?L7 

SR 1j <?GA ?GD 

38 

C*3 



39 

?PD 

?L6 

SR 1» <?PA ?GE 

40 

t*3 



41 


?L6 

PR0G2.?SSC?LE,7,6)?GBNAME 

42 


?L9 

?G4?P7?P1?GB?LC?VL(13) 

43 


?L A 

>?P7$F ?GF 

44 


?L8 

$S1?GB?LCZ'?CH(1,-2)?CH(2,-2)?CH(3 f -2)?CH(a,-2)' 

45 

ENDCL1 

ENDM 



Figure 5-4. Sample of Unexpanded Macro Routine (SAMPL1) Contained 
in EXEC__LIB Directory 
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1 

SAMPL2 

MAC 

P1 = 0,P2 = 2,P3= 1 SAMPLE',P4= 1 PROGRAM 

, P 5 = Z E k O ,P6 = C,P7=) ; 

2 

P8 = T*t> 

,P9=$C0MM,PA= 

A, P6 = b 


3 

★ S£T 

LOCAL VALUES 

WITHIN MACRO ROUTINE * 


a 

L 4 

SETA 

>=tZ'1300'] 


5 

LA 

SETA 

1 OLD 


6 

ID 

SETA 

SR 1 


7 

LE 

SETA 

'pWOG^.STAkl l,] .wife ' 


8 

LG 

SETA 

SQk 


9 

LC 

SET n 

-327S8 


10 

LP 

SETN 

32787 


11 

LO 

SETN 

0 


12 

LI 

SETA 

BE Z 


1 3 

LY 

St T A 

HI T 


14 

LZ 

SETA 

1 , ' 


15 

* SET 

GLOBAL VALUES 

Ail THIN MACku ROUTINE ★ 


lb 

G 7 

SETKi 

•id 7 68 


17 

G2 

SETA 

'BACkaARDS TEMP LAbEL REFERENCE 1 


18 

G5 

SETA 

CTRL 


19 

★ 




20 

★ UNPROTECTED lines 

OMITTED AhtAi PRE-PROCESSED 


21 

* 




22 

?P1 

? L A 

?P5?LZ?L4 r =?LU 


23 

?P1 

?L A 

?P57lZ?L4,=?ld 


24 


?LG 

?LD,?VG(3) 


25 


V L I 

? L D , - S C ?G2 


26 


?LY 



27 


?G5 

?P l ?SS(?LE,W5) 


28 


IFE 

?G7,?LC,1FEX 


29 


fail 



30 

ENOIT 

IFNL 

?P2#?LC,* 


31 

IFE1 

NULL 



32 


IFNE 

?G7r?LP,GTE nD 


33 


FAIL 



34 

GTEND 

GOTO 

EN0IT 


35 

EN0CL2 ENOM 





Figure 5-5. Sample of Unexpanded Macro Routine (SAMPL2) Contained 
in EXEC_LIB Directory 
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EXECUTING 



The internal file names OA and OC translate to logical file numbers 01 and 03, respectively, 
and must be associated with the pathnames or the physical devices through a GET or ASSOC 
command. To execute the program, enter CARDIN. 

Enter the following commands: 

GET 01 >SPD>CDR00 

GET 03 A VOL03>FILES>OLD_MASTER 

CARDIN 

SAMPLE COBOL TERMINAL SESSION (AC8111) 

Figure 7-1 illustrates an operator terminal session in which a system is configured, and the 
COBOL program AC8111 is compiled, linked, and executed on that system. The Entry Level 
COBOL compiler is specified in this session. To secify the Intermediate COBOL compiler, 
change the COBOL command and the LINKER LIB directive as follows. 

COBOLI AC8111 -LO -COUT >SPD>LPT00 
LIB A ZSYS51>ZCIRT;LINK AC8111;MAP;QT 

The LINKER LIB directive directs the Linker to search the secondary directory for COBOL 
run-time routines required for linking. To execute the program, enter AC8111. 


COBOLI A STCOB1 >S0URCE>ACC208>AC8111 -LO -XREF -COUT >SPD>L.PTOD 
<*H> COBOLI 0200 05/06/1050 

<$H) 0000 ERRORS 
($H)END COMPILATION 
(*H)RDY: 

LINKER AC8111 -COUT >SPD>L.PTOO 

( $H) L.INKER-0100-04/05/0704 

LIB <2 CIRT 

LINK ZaAC8111fMP;QT 

($H)ROOT AC6111 

( $H ) L.INK DONE 

($H > RDY s 

AC8111 

( $H > G206NUA011001 
<*H)Q208NUA011001 1234 

< 3 H) P P P P 

($H)RDY: 


Figure 7-1. Sample Terminal Session (AC8111) 


Figure 7-2 is a listing of the program AC8111, its compiled object text, and the output from the 
Linker. The program was compiled using the entry-level compiler. 
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=GCOS h 

WU04 0 0-SIt 0-0 4/26/091 6 C U80 L I 

02 0 0 -tO XRF E AC*111 

78/05/08 

SOURCE 

PROGRAM 




1 

TOFNTIFICATION DIVISION. 

.. 


2 

^PROGRAM Q208A01101.COBOL 

FROM Q208ACC.ARCHTVF. 


3 

program-id. 

AC8111 . 



a 

ENVIRONMENT 

division. 



5 

conetguration section. 



6 

SOURCE-COMPUTER. LFVFL-6. 



7 

OBJECT-COMPUTER. LEVEL-6 

PROGRAM COLLATING SFQIJENCF 

TS ASCTI. 

8 

DATA DIVISION. 



9 

WORKTNG-STORAGE SECTION. 



10 

01 ODSPLYPEr. 



1 t 

05 OOSPLYEIY. 



12 

1 0 

filler pic 

X ( t 3) VALUE "Q206NUA01iOat- H v _ 

1 3 

1 0 

QTCASE PIC 

XX VALUE SPACES. 


i a 

1 0 

EILLER PIC 

XX VALUE SPACES. 


is 

1 0 

qstatus pic 

XX VALUE SPACES. 


16 

1 0 

EILLER PTC 

XX VALUE SPACES. 


1 7 

05 OOSPLYVBL. 



18 

1 0 

oactreslt pic 

X(12) VALUE SPACES^_ 

_ ___ 

19 

1 0 

PILLFR PIC 

XX VALUE S D ACE S . 


20 

1 0 

oeyppeslt PIC 

*(12) VAL#E SPACES. 


21 

1 0 

fillfr pic 

XX VALUE SPACES. 


22 

01 SUMMARYS. 



23 

05 SUM 

-LINE PIC 

*(7) VALUE "1 ? 3 a". 


24 

05 RESULTS. 



25 

1 0 

TEST 1R PIC 

XX. 


26 

10 

TEST2R PIC 

XX . 


27 

1 0 

TEST3R PIC 

XX. 


28 

1 0 

TEST4R PIC 

XX. 


29 

* * * TEST GO TO—FORWARD 

AND BACK ★ * * 


30 

PROCEDURE DIVISION. 



31 

ANEAMG. 




32 

DISPLAY 

ODSPLYEIX. 



33 

GO 

TO PARA-3. 


__ _ 

34 

W R A 1 . 




35 

MOVE 

"GO TO PARA-3" 

TO qexprfslt. 


36 

MOVE 

M P E L L THRU" 

TO Q AC T P£ SL T... 

_ 

37 

MOVE 

"01" TO QTCASE. 


38 

MOVE 

"E" TO TFST1P. 


39 

DISPLAY 

ODSPLYPEC. 

_ .... 


40 

PARA-l . 




41 

MOVE 

"P" Tn TFST3P. 


—42 

GO 

TO EOJt. 

. .. _ _ 


43 

WRA?. 




44 

MOVE 

"GO TO F0J1 " 

TO QEXPRESLT. 


45 

MOVE 

"FELL THRU" 

TO QACTRESL-T* - .-.. 


46 

MOVE 

"04" TO QTCASE. 


47 

MOVE 

"F" TO TEST4P. 


-46 

DISPLAY 

QDSPLYREC. 

. .... __ __ _ 


49 

PAPA-2. 




50 

MOVE 

"P" TO TEST2P. 


51 

GO 

TO PARA-1. 



52 

W 8 A 3 . 




53 

MOVE 

"GO TO PAPA-1" 

TO QEXPRESLT. 


- -54 - 

MOVE 

"FELL THRU" 

_ia QACJRESLT _ 


55 

MOVE 

"03" TO QTCASF. 


56 

MOVE 

"F" TO TFST3P. 


57 

DISPLAY 

QDSPLYREC. 



58 

PAPA-3. 




59 

MOVE 

"P H TO TEST IP. 


60 

GO 

TO PARA-2. 



61 

W8A4. 




62 

move " 

GO TO PARA-2" 

TO QEXPRESLT. 


63 

MOVE " 

FELL THRU** 

TO QACTRESLT. 



Figure 7-2. Sample Listings for AC8111 
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MOVE " 0 ? M TO QTEASE- - 
MOVE "F" TO TEST 2 R. 
DISPLAY QDSPLYREC. 


FOJ 1 . 

MOVE 

MOVE 

MOVE 


MOVE H P M TO TESTER. 

MOVE SPACES TO QTCASF. 

MOVE spacfs TO qstaiijs. 

DISPLAY ODSPLYFTX SUM-LINE. 

MOVE SPACFS TO QDSPLYFIX, 
DISPLAY QDSPLYFIX RFSULTS. 


MOVE SPACFS TO 
DISPLAY QDSPLYFIX 
STOP RUN. 

FND COPOL. 


=GCOSh Monaoo-si1 o-ou /?<■>/or i ^ cuhol l 

DATA ALLOCATION MAP 


XRFF A C P11 1 76/0S/0 8 


WORKING-STORAGE SECTION 


qdsplveix 

FILLER 

G-TG-A-S E-- 

FILLER 

QSTATUS 

-F4L-LC9 

QDSPLYVBL 

QACTRESLT 



0000 X(000021) 

0000 XC000013) 

4AAA -H- XC Q OQQQ?) - 

0007 H XC000002) 

0008 H XfOOOOO?) 

-4 0 O R -H_xtOO-OOOPO- 

0 0 0 A H XC 000028) 

0 0 0 A H XC00001?) 



04 

- 44 *- 

10 

10 

—F-l-L-L-fe-W- 

OEXPRFSLT 

FILLER 

CIIMM ADV Q 

--guui- 

0011 
0017 
404 9 _ 

n 

H 

H 

X( 00001 ?) 

X ( 00000 ?) 
X(OOOOIS) 

1 


OS 

OS 

1 0 

sum-line 

rfsijlts 

jp g j 1 p 

0019 
001 C 
- QQ 1 C- 

H 

M 

XC 000007 ) 

X( 000008 ) 

.X (- 00000 ?) 



—I +*— 

10 

TFST 2 R 

0 0 1 D 

H 

XC 00000 ?) 



10 

TEST 3 R 

0 0 1 F 

H 

X ( 00000 ?) 

- - 

-- 

- 44 - 

- TFST 4 P 

- on i f- 


xr 0000024 


)IAGNOSTICS 




(DATA ALLOCATION MAP) 


_(JPICTURE)_ 

(HALF-WORD INDICATOR; 
DESIGNATED BY H) 

(STARTING ADDRESS OF DATA)” 
(DATA NAME) 

“(GROUP AWELEMMlRriW 
LEVEL NUMBERS) 

- /P D Ali n I rw r i m inn rnr \ 

\tjKUUr LLvtL NunDtKo ) 


Figure 7-2 (cont). Sample Listings for AC8111 
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=GC0S6 MOD400-S110-04/26/0916 COBOL I 0200 -LO XREF AC8111 78/05/08 

OBJECT CODE 


ENT 

NUMBER 

30 

D380 

0000 

LNJ 

D380 

0000 

LNJ 

8 AC6 

.0000 

INC 

0F8 3 


B 

8706 

0000 

CL 

DFC6 

0000 

STB 

FFC 6 

0000 

STB 

FBC6 

0000 

LAB 

8707 

0 09 A 

CL 


STATEMENT A 
0000 0F81 

STATEMENT 
0025 96C7 

0027 9870 

0029 E870 

0 02B D380 

STATEMENT h 
0 02E 0381 

STATEMENT A 
0002 OF 8 1 
STATEMENT A 
0030 OF 87 
0031 0 7 OP 

0032 2050 

0033 OF20 
0030 5001 

0035 5201 

0036 2D33 

0037 0021 

0038 OC 08 
0 0 3A CC 07 


LNJ $B5,<ZCRTER 
LNJ $B5 r <ZCSTOP 


NUMBER 

0020 

number 

FED A 
0000 
0015 
0000 
number 

FFOD 

NUMBER 

0020 

NUMBER 


$B5,<ZCRTY1 


(PARTIAL OBJECT LISTING) 



(SUBROUTINE CALL) 
(INSTRUCTION MNEMONIC) 
(INSTRUCTION) 

(LOCATION OF INSTRUCTION) 


= GC0S6 MODOOO-S1 10-00/26/0916 COBOLI 0200 -LO XREF ACB1 1 1 78/05/08 

CROSS REFERENCE LISTING 


NUMBER 

DATA NAME 



REFERENCE 

NUMBERS 

31 

ANF ANG 

NO 

REFERENCES 



67 

FUJI 


42 




no 

PARA-l 


51 




49 

PARA-2 


60 




58 

PARA-3 


33 




18 

QACTRESLT 


36 

45 

54 

63 

1 1 

QDSPLYFIX 


32 

71 

72 

73 

10 

QPSPLYREC 


39 

48 

57 

66 

17 

ODSPLYV0L 

NO 

REFERENCES 



20 

QEXPRESLT 


35 

44 

53 

62 

15 

OSTATUS 


70 




13 

QTCASE 


37 

46 

55 

64 

24 

RESULTS 


73 




23 

SUM-LINE 


71 




22 

SUMMARYS 

NO 

REFERENCES 



25 

TEST 1 R 


38 

59 



26 

TEST2R 


50 

65 



27 

TEST3R 


41 

56 



28 

TEST4R 


4 7 

68 




Figure 7-2 (cont). Sample Listings for AC8111 
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34 

wBA 1 

NO 

REFERENCES 

43 

WHA? 

NO 

REFERENCES 

52 

W8 A 3 

NO 

REFERENCES 

61 

rtBA4 

NO 

REFERENCES 


L INKFR-Ot 0 0-1 1 /23/1?Rft GC0S8 M00400-S 1 00- 1 1 /P9/06P0 

8U = AC«iU LTNKEH ON: 1901/01/01 0002:44.1 -SAF 

A C 011 1 01/01/01 

COBOL RFV. O?O0 I) A TF 01/01/01 TTMF 0000 . 

7CRTYU 770208 

HRS ASSEMBLER P.49 08/0P/77 1340.3 EOT THU 

(C) COPYRIGHT 1978 BY HONFYWEL.L INFORMATION SYSTEMS INC 

7C STOP 7 7 0 ?0 R 

HRS ASSEMBLER P.49 06/02/77 1338.9 EOT THU 

(C) COPYRIGHT 1978 RY HONFYWELL INFORMATION SYSTEMS INC 

7CRTFR 770208 

HRS ASSEMBLER P.49 06/OP/77 1934.4 EOT THU 

fC) COPYRIGHT 1°78 RY HONFYWELL INFORMATION SYSTEMS INC 


** AC81U 
♦♦START 0033 
♦ ♦LOW 0000 

♦♦HIGH 0381 

♦♦CURRFNT 0381 


LINK MAP 1901/01/01 000?:44.1 


♦ ♦FX T OEFS 


P 

7HC0MM 

0000 



P 

7HPFL 

0000 



♦ ♦ 

ROOT 

0000 



♦ 

A C 8 1 1 1 

0000 




AC81 1 1 

0033 

7C M A T N 

0031 

♦ 

7CRTYU 

0PR9 




7CRTY1 

0 PF 1 

7CRTYP 

031? 

♦ 

7CSTOP 

033E 




7CSTOP 

033E 



♦ 

7CRTFR 

0341 




7CRTFR 

0353 



* ♦ 11N D E F 




♦ 

AC 8 1 1 1 

0000 



♦ 

7CRTYU 

02R9 



♦ 

7CSTOP 

0 33E 



♦ 

7CPTFR 

0341 




7CRTY3 0334 


♦♦♦♦♦♦♦♦♦♦ 

ROOT »C«111 
♦♦♦♦♦♦♦♦♦♦ 

HIGHFST OVLY /NUM OF SYMS 1 
♦♦♦♦♦♦♦♦♦♦ 

SAF 

♦♦♦♦♦♦♦♦♦♦ 

ROOT AC8111 BASF 0000 

♦♦♦♦♦♦♦♦♦♦ 

♦ SIZF OF ROOT AND STATIC OVLYS= 0381 
♦♦♦♦♦♦♦♦♦♦ 
lI N K DONE 
♦♦♦♦♦♦♦♦♦♦ 


BASF 0000 


ST 0033 


-...I HIGH*0381 


MI REL RCOr 9 


Figure 7-2 (cont). Sample Listings for AC8111 
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CALLING FORTRAN ROUTINES FROM AN ENTRY-LEVEL COBOL MAIN PROGRAM 

Entry-Level COBOL programs can call FORTRAN subroutines and conversely. This enables 
a COBOL application to utilize the features of the FORTRAN language, such as the intrinsic 
routines, and FORTRAN run-time libraries. 

The COBOL main program must be linked with all the called FORTRAN routines to form one 
bound unit. The FORTRAN routines and libraries must either be in the working directory or one 
of the libraries searched by the Linker, as specified by the Linker LIB and LIBn directives. 

Figure 7-3 is a sample Entry-Level COBOL source program, COBFRT, whose function is to 
calculate and print the square roots of three integers. Since the COBOL library does not have a 
square root routine, a FORTAN subroutine, FRTRAN in Figure 7-4, is used to convert the 
passed COBOL integer argument values to read values and call the FORTRAN square root 
routine. 

The commands entered from the operator terminal are listed in Figure 7-5. COBFRT.O and 
FRTRAN.O are both in the working directory FRTCOB, the COBOL run-time library, ZCRT, is 
in the directory specified by the Linker directive LIB, and the FORTRAN run-time library, 
ZFRT, is in the directory specified by LIB2. The system volume, ZSYS51, contains the 
FORTRAN and COBOL compilers, ZFRT, ZCRT and the operating system software. Volume 
FRTCOB contains the source modules (COBFRT.C and FRTRAN.F), the object modules 
(COBRFT.O and FRTRAN.O) and the linked bound unit COBFRT. 
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